home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / backCONTROLLOOP.s < prev    next >
Encoding:
Text File  |  1996-07-05  |  54.5 KB  |  2,852 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'TKG1:includes/titlescrnraw1',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'TKG2:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43. TITLESCRNPTR: dc.l 0
  44.  
  45.  
  46.  
  47. ProtValA: dc.l 0
  48. ProtValB: dc.l 0
  49. ProtValC: dc.l 0
  50. ProtValD: dc.l 0
  51. ProtValE: dc.l 0
  52. ProtValF: dc.l 0
  53. ProtValG: dc.l 0
  54. ProtValH: dc.l 0
  55. ProtValI: dc.l 0
  56. ProtValJ: dc.l 0
  57. ProtValK: dc.l 0
  58. ProtValL: dc.l 0
  59. ProtValM: dc.l 0
  60. ProtValN: dc.l 0
  61.  
  62. MASTERPLAYERONEHEALTH:
  63.   dc.w 0
  64.   dc.w 0
  65. MASTERPLAYERONEAMMO:
  66.  ds.w 20
  67.  
  68. MASTERPLAYERONESHIELD:
  69.  dc.w 0
  70.  dc.w 0
  71. MASTERPLAYERONEGUNS:
  72.  dcb.w 10,0
  73.  
  74. MASTERPLAYERTWOHEALTH:
  75.   dc.w 0
  76.   dc.w 0
  77. MASTERPLAYERTWOAMMO:
  78.  ds.w 20
  79.  
  80. MASTERPLAYERTWOSHIELD:
  81.  dc.w 0
  82.  dc.w 0
  83. MASTERPLAYERTWOGUNS:
  84.  dcb.w 10,0
  85.  
  86. KVALTOASC:
  87.         Dc.b    " `  "," 1  "," 2  "," 3  "
  88.         dc.b    " 4  "," 5  "," 6  "," 7  "
  89.         dc.b    " 8  "," 9  "
  90. ; 10
  91.         Dc.b    " 0  "," -  "," +  "," \  "
  92.         dc.b     '    ','    '," Q  "," W  "
  93.         dc.b    " E  "," R  "
  94. ; 20
  95.         Dc.b    " T  "," Y  "," U  "," I  "
  96.         dc.b    " O  "," P  "," [  "," ]  "
  97.         dc.b    '    ','KP1 '
  98. ; 30
  99.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  100.         dc.b    " D  "," F  "," G  "," H  "
  101.         dc.b    " J  "," K  "
  102. ;40
  103.         Dc.b    " L  "," ;  "," #  ",'    '
  104.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  105.         dc.b    '    '," Z  "
  106. ;50
  107.         Dc.b    " X  "," C  "," V  "," B  "
  108.         dc.b    " N  "," M  "," ,  "," .  "
  109.         dc.b     " /  ",'    '
  110. ;60
  111.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  112.         dc.b    'SPC ','<-- ','TAB ','ENT '
  113.         dc.b    'RTN ','ESC '
  114. ;70
  115.         Dc.b    'DEL ','    ','    ','    '
  116.         dc.b    'KP- ','    ','UCK ','DCK '
  117.         dc.b    'RCK ','LCK '
  118. ;80
  119.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  120.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  121.         dc.b    'FK9 ','FK0 '
  122. ;90
  123.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  124.         dc.b    'KP+ ','HLP ','LSH ','RSH '
  125.         dc.b    'CPL ','CTL '
  126. ;100
  127.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  128.         dc.b    '    ','    ','    ','    '
  129.         dc.b    '    ','    '
  130.         Dc.b    '    ','    ','    ','    '
  131.         dc.b    '    ','    ','    ','    '
  132.         dc.b    '    ','    '
  133.  
  134.  even
  135.  
  136. FINISHEDLEVEL: dc.w 0
  137.  
  138. _IntuitionBase: dc.l 0
  139. _GfxBase: dc.l 0
  140. MyScreen: dc.l 0
  141.  
  142. MyNewScreen    dc.w    0,0        left, top
  143.         dc.w    320,16        width, height
  144.         dc.w    1        depth
  145.         dc.b    0,1        pens
  146.         dc.w    0        viewmodes
  147.         dc.w    CUSTOMSCREEN+SCREENQUIET    type
  148.         dc.l    0        font
  149.         dc.l    0    title
  150.         dc.l    0        gadgets
  151.         dc.l    0        bitmap
  152.  
  153.  
  154. INTUITION_REV    equ    31        v1.1
  155. int_name    INTNAME
  156.  even
  157.  
  158. START:
  159.  
  160.  move.b #'n',mors  
  161.  
  162. ************************************88
  163. * TAKE OUT WHEN PLAYING MODULE AGAIN
  164. ********************************
  165. ProtChkBLev1:
  166.     PRSDF
  167.     PRSDE
  168. ************************************
  169.  
  170. ; move.l #PROTCALLENC,a0
  171. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  172. ; move.l #$75055345,d0
  173. ;codeitup:
  174. ; sub.l d0,(a0)+
  175. ; ror.l #1,d0
  176. ; dbra d1,codeitup
  177. ; rts
  178.  
  179. ProtChkCLev1:
  180.  PRSDA
  181.  
  182.  move.w #$7201,titleplanes
  183.  
  184.  move.l 4.w,a6
  185.  move.l #doslibname,a1
  186.  moveq #0,d0
  187.  jsr -552(a6)
  188.  move.l d0,doslib
  189.  
  190.     moveq    #INTUITION_REV,d0    version
  191.     lea    int_name(pc),a1
  192.     CALLEXEC OpenLibrary
  193.     tst.l    d0
  194. ;    beq    exit_false        if failed then quit
  195.     move.l    d0,_IntuitionBase    else save the pointer
  196.  
  197.     lea    MyNewScreen(pc),a0
  198.     
  199.     CALLINT    OpenScreen        open a screen
  200.     tst.l    d0
  201. ;    beq    exit_closeall        if failed the close both, exit
  202.     move.l    d0,MyScreen
  203.  
  204.     CALLINT RethinkDisplay
  205.  
  206.  move.l #LINKname,a0
  207.  jsr LOADAFILE
  208.  move.l d0,LINKFILE
  209.  
  210.  
  211. ; move.l doslib,a6
  212. ; move.l #LINKname,d1
  213. ; move.l #1005,d2
  214. ; jsr -30(a6)
  215. ; move.l d0,LLhandle
  216. ;
  217. ; move.l doslib,a6
  218. ; move.l d0,d1
  219. ; move.l #LINKSPACE,d2
  220. ; move.l #90000,d3
  221. ; jsr -42(a6)
  222. ;
  223. ; move.l doslib,a6
  224. ; move.l LLhandle,d1
  225. ; jsr -36(a6)
  226.  
  227.  
  228.  PRSDS
  229.  jsr stuff
  230.  
  231.  jsr _InitLowLevel
  232.  
  233. ; jsr CLEARTITLEPAL
  234.  
  235. ProtChkDLev1:
  236.  PRSDT
  237.  
  238.  move.w #$20,$dff1dc
  239.  move.l #titlecop,$dff080
  240.  PRSDV
  241.  move.w #$87c0,$dff000+dmacon
  242.  move.w #$8020,$dff000+dmacon
  243. ProtChkMLev1:
  244.  move.w $dff006,d0
  245.  lea RVAL2-100(pc),a0
  246.  add.w d0,100(a0)
  247.  
  248.  bsr GETTITLEMEM
  249. ProtChkELev1:
  250.  PRSDU
  251.  bsr CLROPTSCRN
  252.  
  253.  bsr SETUPTITLESCRN
  254.  
  255. ; jsr _InitPlayer
  256.  
  257. ; move.l #INTROTUNENAME,a0
  258. ; jsr _LoadModule
  259. ; move.l d0,INTROTUNEADDR
  260.  PRSDY
  261. ; move.l d0,a0
  262. ; jsr _InitModule
  263.  
  264. ; move.l INTROTUNEADDR,a0
  265. ; jsr _PlayModule
  266. ProtChkFLev1:
  267.  PRSDa
  268.  move.l #TITLESCRNNAME,TITLESCRNPTR
  269.  bsr LOADTITLESCRN2
  270.  
  271.  FLASHER $0f0,$fff
  272.  
  273. **********************************************
  274.  jsr INITQUEUE
  275. **********************************************
  276.  
  277.  move.w #0,FADEVAL
  278.  move.w #31,FADEAMOUNT
  279.  bsr FADEUPTITLE
  280.  PRSDB
  281.  jsr LOAD_SFX
  282.  jsr LOADWALLS
  283.  jsr LOADFLOOR
  284.  jsr LOADOBS
  285.  PRSDZ
  286.  
  287.  
  288.  move.l #backpicname,a0
  289.  move.l #BackPicture,d0
  290.  move.l #0,d1
  291.  jsr QUEUEFILE
  292.  
  293. ; IFNE CD32VER
  294.  PRSDD
  295. ; ENDC
  296.  
  297. ; jsr _StopPlayer
  298.  PRSDW
  299.  PRSDX
  300. ; jsr _RemPlayer
  301.  
  302.  
  303. ***********************************************
  304.  jsr FLUSHQUEUE
  305. ***********************************************
  306.  
  307.  jsr PATCHSFX
  308.  
  309.  move.w #23,FADEAMOUNT
  310.  bsr FADEDOWNTITLE 
  311.  
  312. ; bsr ASKFORDISK
  313.  
  314.  IFNE CD32VER
  315.  move.l doslib,a6
  316.  move.l #115,d1
  317.  jsr -198(a6)
  318.  ENDC
  319.  
  320. ; move.l #newblag,$80
  321. ; trap #0
  322. ; bra JUMPPASTIT
  323. ; rts
  324. ;
  325. ;newblag:
  326.  
  327.  
  328. ProtChkGLev1:
  329. ; bsr PROTSETUP
  330.  bsr DEFAULTGAME
  331.  
  332. ; move.l INTROTUNEADDR,a0
  333. ; jsr _UnLoadModule
  334.  
  335. ; IFEQ CD32VER
  336. ; jsr KInt_Init
  337. ; ENDC
  338. ProtChkHLev1:
  339. ; rte
  340. ;
  341. ;JUMPPASTIT:
  342. ; 
  343.  
  344. BACKTOMENU:
  345.  
  346.  jsr CLEARKEYBOARD
  347.  
  348.  cmp.b #'s',mors
  349.  beq.s BACKTOSLAVE
  350.  cmp.b #'m',mors
  351.  beq.s BACKTOMASTER
  352.  bsr READMAINMENU
  353.  bra DONEMENU
  354. BACKTOMASTER:
  355.  bsr MASTERMENU
  356.  bra DONEMENU
  357. BACKTOSLAVE:
  358.  bsr SLAVEMENU
  359. DONEMENU:
  360.  
  361.  
  362.  bsr WAITREL
  363.  
  364. ; IFEQ CD32VER
  365. ; move.l OLDKINT,$68.w
  366. ; ENDC
  367.  
  368.  
  369.  
  370.  
  371.  bsr CLRSPRITES
  372.  
  373.  move.w #23,FADEAMOUNT
  374.  bsr FADEUPTITLE
  375.  move.w #31,FADEAMOUNT
  376.  bsr FADEDOWNTITLE
  377.  
  378.  move.w #$0201,titleplanes
  379.  
  380.     FILTER
  381.     
  382.  tst.b SHOULDQUIT
  383.  bne QUITTT
  384.  
  385.  bsr RELEASETITLEMEM
  386.  
  387.   
  388. ; jsr LOADBOTPIC
  389.  
  390.   
  391.  clr.b FINISHEDLEVEL
  392.  
  393.  move.w #0,PLR1s_angpos
  394.  move.w #0,PLR2s_angpos
  395.  move.w #0,PLR1_angpos
  396.  move.w #0,PLR2_angpos
  397.  move.b #0,PLR1_GunSelected
  398.  move.b #0,PLR2_GunSelected
  399.  
  400. **************************8
  401.  clr.b NASTY
  402. *************************** 
  403.  
  404.  move.l #MASTERPLAYERONEHEALTH,a0
  405.  move.l #MASTERPLAYERONESHIELD,a1
  406.  move.l #PLAYERONEHEALTH,a2
  407.  move.l #PLAYERONESHIELD,a3
  408.  move.l #PLAYERTWOHEALTH,a4
  409.  move.l #PLAYERTWOSHIELD,a5
  410.  
  411.  REPT 11 
  412.  move.l (a0),(a2)+
  413.  move.l (a0)+,(a4)+
  414.  ENDR
  415.  
  416.  REPT 6 
  417.  move.l (a1),(a3)+
  418.  move.l (a1)+,(a5)+
  419.  ENDR
  420.  
  421. *************************************
  422.  jsr INITQUEUE
  423.  
  424.  move.l #MEMF_CHIP,d1
  425.  move.l #10240*8,d0
  426.  move.l 4.w,a6
  427.  jsr -198(a6)
  428.  move.l d0,scrn
  429.  
  430.  move.l #MEMF_CHIP,d1
  431.  move.l #10240*8,d0
  432.  move.l 4.w,a6
  433.  jsr -198(a6)
  434.  move.l d0,scrn2
  435.  
  436.     move.l    #borderpacked,d0
  437.     moveq    #0,d1
  438.     move.l  scrn,a0
  439.     lea    WorkSpace,a1
  440.     lea    $0,a2
  441.     jsr    unLHA
  442.  
  443.     move.l    #borderpacked,d0
  444.     moveq    #0,d1
  445.     move.l  scrn2,a0
  446.     lea    WorkSpace,a1
  447.     lea    $0,a2
  448.     jsr    unLHA
  449.  
  450. ; move.l #MEMF_CHIP,TYPEOFMEM
  451. ; move.l #bordername,a0
  452. ; move.l #scrn,d0
  453. ; move.l #0,d1
  454. ; jsr QUEUEFILE
  455. ; 
  456. ; ifeq CHEESEY
  457. ; move.l #bordername,a0
  458. ; move.l #scrn2,d0
  459. ; move.l #0,d1
  460. ; jsr QUEUEFILE
  461. ; endc 
  462. ; 
  463. ; jsr FLUSHQUEUE
  464.  
  465.  ifne CHEESEY
  466.  
  467.  move.l scrn,scrn2
  468.  
  469.  endc
  470.  
  471. ************************************* 
  472.  
  473.     jsr PLAYTHEGAME
  474.     
  475. *************************************
  476.  move.l scrn,a1
  477.  move.l #10240*8,d0
  478.  move.l 4.w,a6
  479.  jsr -210(a6)
  480.  ifeq CHEESEY
  481.  move.l scrn2,a1
  482.  move.l #10240*8,d0
  483.  move.l 4.w,a6
  484.  jsr -210(a6)
  485.  endc
  486. *************************************
  487.  
  488. ; bsr FREEBOTMEM 
  489.  
  490. ; bra QUITTT
  491.  
  492.  tst.b FINISHEDLEVEL
  493.  beq dontusestats
  494.  
  495.  move.l #MASTERPLAYERONEHEALTH,a0
  496.  move.l #MASTERPLAYERONESHIELD,a1
  497.  move.l #PLAYERONEHEALTH,a2
  498.  move.l #PLAYERONESHIELD,a3
  499.  
  500.  REPT 11 
  501.  move.l (a2)+,(a0)+
  502.  ENDR
  503.  
  504.  REPT 6 
  505.  move.l (a3)+,(a1)+
  506.  ENDR
  507.  
  508. dontusestats:
  509.  
  510. ; bsr PASSLINETOGAME
  511. ; bsr GETSTATS
  512.  
  513.  bsr GETTITLEMEM
  514.  bsr CLROPTSCRN
  515.  bsr SETUPTITLESCRN
  516.  
  517.  move.l #TITLESCRNNAME2,TITLESCRNPTR
  518.  bsr LOADTITLESCRN2
  519.  move.w #$7201,titleplanes
  520.  
  521.  move.w #$20,$dff1dc
  522.  move.l #titlecop,$dff080
  523.  move.w #$87c0,$dff000+dmacon
  524.  move.w #$8020,$dff000+dmacon 
  525.  
  526.  move.w #0,FADEVAL
  527.  move.w #31,FADEAMOUNT
  528.  bsr FADEUPTITLE
  529.  
  530.  move.w #23,FADEAMOUNT
  531.  bsr FADEDOWNTITLE 
  532.  
  533. ; IFEQ CD32VER
  534. ; jsr KInt_Init
  535. ; ENDC
  536.  
  537.  bra BACKTOMENU
  538.  
  539. QUITTT:
  540.  
  541.  move.l LEVELDATA,d1
  542.  move.l d1,a1
  543.  move.l #120000,d0
  544.  move.l 4.w,a6
  545.  jsr -210(a6)
  546.  
  547.  move.l TEXTSCRN,d1
  548.  move.l d1,a1
  549.  move.l #10240*2,d0
  550.  move.l 4.w,a6
  551.  jsr -210(a6)
  552.  
  553.  move.l FASTBUFFER,d1    
  554.  move.l #2*320*256,d0
  555.  move.l 4.w,a6
  556.  jsr -210(a6)
  557.  
  558. ; jsr RELEASEWALLMEM
  559.  jsr RELEASESAMPMEM
  560.  jsr RELEASEFLOORMEM
  561.  jsr RELEASEOBJMEM
  562.   
  563.  move.l old,$dff080
  564.  move.l 4.w,a6
  565.  lea VBLANKInt,a1
  566.  moveq #INTB_COPER,d0
  567.  jsr _LVORemIntServer(a6)
  568.  
  569.  move.l 4.w,a6
  570.  lea KEYInt,a1
  571.  moveq #INTB_PORTS,d0
  572.  jsr _LVORemIntServer(a6)
  573.  
  574.  move.w #$f8e,$dff1dc
  575.  
  576.  move.l old,$dff080
  577.  move.w _storeint,d0
  578.  or.w d0,$dff000+intena
  579.  
  580. ; move.l    4.w,a6
  581. ; jsr    _LVOPermit(a6)
  582.  
  583.  
  584.  move.l #0,d0
  585.  
  586.  rts
  587.  
  588. SSTACK: dc.l 0
  589.  
  590. backpicname: dc.b "tkg1:includes/rawbackpacked"
  591.   dc.b 0
  592.  
  593. bordername: dc.b "TKG2:includes/newborderRAW",0
  594.  even
  595. borderpacked: incbin "ab3:includes/newborderPACKED"
  596.  
  597. ; KEY OPTIONS:
  598. CONTROLBUFFER:
  599. turn_left_key:
  600.  dc.b $4f
  601. turn_right_key:
  602.  dc.b $4e
  603. forward_key:
  604.  dc.b $4c
  605. backward_key:
  606.  dc.b $4d
  607. fire_key:
  608.  dc.b $65
  609. operate_key:
  610.  dc.b $40
  611. run_key:
  612.  dc.b $61
  613. force_sidestep_key:
  614.  dc.b $67
  615. sidestep_left_key:
  616.  dc.b $39
  617. sidestep_right_key:
  618.  dc.b $3a
  619. duck_key:
  620.  dc.b $22
  621. look_behind_key:
  622.  dc.b $28
  623. jump_key:
  624.  dc.b $f
  625. look_up_key:
  626.  dc.b 27
  627. look_down_key:
  628.  dc.b 42
  629. centre_view_key:
  630.  dc.b 41
  631. next_weapon_key:
  632.  dc.b 68
  633.  
  634. templeftkey: dc.b 0
  635. temprightkey: dc.b 0
  636. tempslkey: dc.b 0 
  637. tempsrkey: dc.b 0
  638.  
  639.  even 
  640.  
  641. GETSTATS:
  642. ; CHANGE PASSWORD INTO RAW DATA
  643.  
  644.  rts
  645.  
  646.  
  647. SETPLAYERS:
  648.  
  649.  move.w PLOPT,d0
  650.  add.b #'a',d0
  651.  move.b d0,LEVA
  652.  move.b d0,LEVB
  653.  move.b d0,LEVC
  654.  move.b d0,LEVD
  655.  move.b d0,LEVE
  656.  
  657.  cmp.b #'s',mors
  658.  beq SLAVESETUP
  659.  cmp.b #'m',mors
  660.  beq MASTERSETUP
  661.  st NASTY
  662. onepla:
  663.  rts
  664.  
  665. NASTY: dc.w 0
  666.  
  667. MASTERSETUP:
  668.  clr.b NASTY
  669.  move.w PLOPT,d0
  670.  jsr SENDFIRST
  671.  
  672.  move.w Rand1,d0
  673.  jsr SENDFIRST
  674.  
  675.  bsr TWOPLAYER
  676.  rts
  677.  
  678. SLAVESETUP:
  679.  CLR.B NASTY
  680.  jsr RECFIRST
  681.  move.w d0,PLOPT
  682.  add.b #'a',d0
  683.  move.b d0,LEVA
  684.  move.b d0,LEVB
  685.  move.b d0,LEVC
  686.  move.b d0,LEVD
  687.  move.b d0,LEVE
  688.  
  689.  jsr RECFIRST
  690.  move.w d0,Rand1
  691.  bsr TWOPLAYER
  692.  
  693.  
  694.  rts
  695.      
  696. ********************************************************
  697.  
  698. ASKFORDISK:
  699.  lea RVAL1+300(pc),a0
  700.  lea RVAL2+900(pc),a1
  701.  PRSDD
  702.  move.w #10,OptScrn
  703.  bsr DRAWOPTSCRN
  704.  
  705. ProtChkNLev1:
  706. .wtrel:
  707.  btst #7,$bfe001
  708.  beq.s .wtrel
  709.  
  710. wtclick:
  711.  add.w #$235,-300(a0)
  712.  add.w #$4533,-900(a0)
  713.  btst #6,$bfe001
  714.  bne.s wtclick
  715.  
  716.  rts
  717.  
  718. CLRSPRITES: 
  719.  move.l #nullspr,d0
  720.  move.w d0,tsp0l
  721.  move.w d0,tsp1l
  722.  move.w d0,tsp2l
  723.  move.w d0,tsp3l
  724.  move.w d0,tsp4l
  725.  move.w d0,tsp5l
  726.  move.w d0,tsp6l
  727.  move.w d0,tsp7l
  728.  swap d0
  729.  move.w d0,tsp0h
  730.  move.w d0,tsp1h
  731.  move.w d0,tsp2h
  732.  move.w d0,tsp3h
  733.  move.w d0,tsp4h
  734.  move.w d0,tsp5h
  735.  move.w d0,tsp6h
  736.  move.w d0,tsp7h 
  737.  rts
  738.  
  739. ********************************************************
  740.  
  741. READMAINMENU:
  742.  
  743.  
  744.  move.b #'n',mors
  745.  
  746.  move.w MAXLEVEL,d0
  747.  
  748.  move.l #CURRENTLEVELLINE,a1
  749.  muls #40,d0
  750.  move.l LINKFILE,a0
  751.  add.l #LevelName,a0
  752.  add.l d0,a0
  753.  bsr PUTINLINE
  754.  
  755. ; Stay here until 'play game' is selected.
  756.  
  757.  move.w #0,OptScrn
  758.  bsr DRAWOPTSCRN
  759.  move.w #0,OPTNUM
  760.  
  761.  bsr HIGHLIGHT
  762.  
  763.  
  764.  
  765.  bsr WAITREL
  766. .rdlop:
  767.  
  768.  bsr CHECKMENU
  769.  tst.w d0
  770.  blt.s .rdlop
  771.  
  772.  
  773. ; tst.w d0
  774. ; bne.s .nonextlev
  775. ; move.w LEVELSELECTED,d0
  776. ; add.w #1,d0
  777. ; cmp.w MAXLEVEL,d0
  778. ; blt .nowrap
  779. ; moveq #0,d0
  780. ;.nowrap:
  781. ; and.w #$f,d0
  782. ; move.w d0,LEVELSELECTED
  783. ; move.l #CURRENTLEVELLINE,a1
  784. ; muls #40,d0
  785. ; move.l #LEVEL_OPTS,a0
  786. ; add.l d0,a0
  787. ; bsr PUTINLINE
  788. ; bsr JUSTDRAWIT
  789. ; bra .rdlop
  790.  
  791. .nonextlev:
  792.  
  793.  cmp.w #1,d0
  794.  bne .noopt
  795.  
  796.  bra MASTERMENU
  797.  
  798. .noopt:
  799.  
  800. ; cmp.w #5,d0
  801. ; bne.s .noqui
  802. ; st SHOULDQUIT
  803. ; bra playgame
  804. ;.noqui
  805.  
  806.  cmp.w #2,d0
  807.  beq playgame
  808.  
  809.  cmp.w #3,d0
  810.  bne .nocontrol
  811.  
  812.  bsr CHANGECONTROLS
  813.  
  814.  move.w #0,OptScrn
  815.  bsr DRAWOPTSCRN
  816.  move.w #0,OPTNUM
  817.  
  818.  bsr HIGHLIGHT
  819.  
  820.  bsr WAITREL
  821.  bra .rdlop
  822.  
  823. .nocontrol:
  824.  
  825.  cmp.w #4,d0
  826.  bne .nocred
  827.  bsr SHOWCREDITS
  828.  move.w #0,OptScrn
  829.  bsr DRAWOPTSCRN
  830.  move.w #1,OPTNUM
  831.  
  832.  bsr HIGHLIGHT
  833.  
  834.  bsr WAITREL
  835.  bra .rdlop
  836.  
  837. .nocred:
  838.  
  839.  cmp.w #5,d0
  840.  bne .noload
  841.  
  842.  bsr WAITREL
  843.  
  844.  jsr LOADPOSITION
  845.  
  846.  move.w #0,OptScrn
  847.  bsr DRAWOPTSCRN
  848.  move.w #1,OPTNUM
  849.  
  850.  bsr HIGHLIGHT
  851.  
  852.  bsr WAITREL
  853.  bra .rdlop
  854.  
  855. .noload:
  856.  cmp.w #6,d0
  857.  bne playgame
  858.  bsr WAITREL
  859.  
  860.  jsr SAVEPOSITION
  861.  
  862.  move.w #0,OptScrn
  863.  bsr DRAWOPTSCRN
  864.  move.w #1,OPTNUM
  865.  
  866.  bsr HIGHLIGHT
  867.  
  868.  bsr WAITREL
  869.  bra .rdlop
  870.  
  871.  
  872. ;
  873. ; move.l #PASSWORDLINE+12,a0
  874. ; moveq #15,d2
  875. ;.clrline:
  876. ; move.b #32,(a0)+
  877. ; dbra d2,.clrline 
  878. ; move.w #0,OptScrn
  879. ; bsr DRAWOPTSCRN
  880. ;
  881. ; IFEQ CD32VER
  882. ; clr.b lastpressed
  883. ; move.l #PASSWORDLINE+12,a0
  884. ; move.w #0,d1
  885. ;.ENTERPASS:
  886. ; tst.b lastpressed
  887. ; beq .ENTERPASS
  888. ; move.b lastpressed,d2
  889. ; move.b #0,lastpressed
  890. ; move.l #KVALTOASC,a1
  891. ; 
  892. ; cmp.l #'<-- ',(a1,d2.w*4)
  893. ; bne .nodel
  894. ;
  895. ; tst.b d1
  896. ; beq .nodel
  897. ;
  898. ; subq #1,d1
  899. ; move.b #32,-(a0)
  900. ; movem.l d0-d7/a0-a6,-(a7)
  901. ; bsr JUSTDRAWIT
  902. ; movem.l (a7)+,d0-d7/a0-a6
  903. ; bra .ENTERPASS
  904. ;
  905. ;.nodel:
  906. ; 
  907. ; cmp.l #'RTN ',(a1,d2.w*4)
  908. ; beq .FORGETIT
  909. ; cmp.l #'ESC ',(a1,d2.w*4)
  910. ; beq .FORGETIT
  911. ; move.b 1(a1,d2.w*4),d2
  912. ; cmp.b #65,d2
  913. ; blt .ENTERPASS
  914. ; cmp.b #'Z',d2
  915. ; bgt .ENTERPASS
  916. ; move.b d2,(a0)+
  917. ; move.w #0,OptScrn
  918. ; movem.l d0-d7/a0-a6,-(a7)
  919. ; bsr JUSTDRAWIT
  920. ; movem.l (a7)+,d0-d7/a0-a6
  921. ; add.w #1,d1
  922. ; cmp.w #16,d1
  923. ; blt .ENTERPASS
  924. ;
  925. ; ENDC
  926. ; IFNE CD32VER
  927. ; move.l #PASSWORDLINE+12,a0
  928. ; move.w #15,d0
  929. ;.ENTERPASS:
  930. ; bsr GETACHAR
  931. ; dbra d0,.ENTERPASS
  932. ; ENDC
  933. ;
  934. ; bsr PASSLINETOGAME
  935. ; tst.w d0
  936. ; bne .FORGETIT
  937. ; 
  938. ; bsr GETSTATS
  939. ; move.w MAXLEVEL,d0
  940. ; move.l #CURRENTLEVELLINE,a1
  941. ; muls #40,d0
  942. ; move.l #LEVEL_OPTS,a0
  943. ; add.l d0,a0
  944. ; bsr PUTINLINE
  945. ;
  946. ;.FORGETIT:
  947. ; bsr WAITREL
  948. ; bsr CALCPASSWORD
  949. ;
  950. ; move.w #0,OptScrn
  951. ; bsr DRAWOPTSCRN
  952. ;
  953. ; move.w #1,OPTNUM
  954. ;
  955. ; bsr HIGHLIGHT
  956. ;
  957. ; bra .rdlop 
  958.  
  959. playgame:
  960.  move.w MAXLEVEL,PLOPT
  961.  rts
  962.  
  963. SHOULDQUIT: dc.w 0
  964.  
  965. LEVELSELECTED:
  966.  dc.w 0
  967.  
  968.  IFNE CD32VER
  969. GETACHAR:
  970.  moveq #0,d7
  971.  move.b #'A',(a0)
  972.  movem.l d0-d7/a0-a6,-(a7)
  973.  jsr JUSTDRAWIT
  974.  movem.l (a7)+,d0-d7/a0-a6
  975.  
  976. .wtnum:
  977.  btst #1,$dff00c
  978.  sne d1
  979.  btst #1,$dff00d
  980.  sne d2
  981.  btst #0,$dff00c
  982.  sne d3
  983.  btst #0,$dff00d
  984.  sne d4
  985.  
  986.  eor.b d1,d3
  987.  eor.b d2,d4
  988.  
  989.  tst.b d1
  990.  beq.s .NODELETE
  991.  cmp.w #15,d0
  992.  beq.s .NODELETE
  993.  move.b #32,(a0)
  994.  subq #1,a0
  995.  addq #1,d0
  996.  move.b (a0),d7
  997.  sub.b #'A',d7
  998.  movem.l d0-d7/a0-a6,-(a7)
  999.  jsr JUSTDRAWIT
  1000.  movem.l (a7)+,d0-d7/a0-a6
  1001.  jsr WAITFORNOPRESS
  1002.  bra .wtnum
  1003. .NODELETE
  1004.  
  1005.  tst.b d4
  1006.  bne.s .PREVNUM
  1007.  tst.b d3
  1008.  bne.s .NEXTNUM
  1009.  btst #7,$bfe001
  1010.  bne.s .wtnum
  1011.  addq #1,a0
  1012.  jsr WAITFORNOPRESS
  1013.  rts
  1014.  
  1015. .PREVNUM:
  1016.  subq #1,d7
  1017.  bge.s .nonegg
  1018.  moveq #15,d7
  1019. .nonegg:
  1020.  move.b d7,d1
  1021.  add.b #'A',d1
  1022.  move.b d1,(a0)
  1023.  movem.l d0-d7/a0-a6,-(a7)
  1024.  jsr JUSTDRAWIT
  1025.  movem.l (a7)+,d0-d7/a0-a6
  1026.  
  1027.  jsr WAITFORNOPRESS
  1028.  
  1029.  bra .wtnum
  1030.  
  1031. .NEXTNUM:
  1032.  addq #1,d7
  1033.  cmp.w #15,d7
  1034.  ble.s .nobigg
  1035.  moveq #0,d7
  1036. .nobigg:
  1037.  move.b d7,d1
  1038.  add.b #'A',d1
  1039.  move.b d1,(a0)
  1040.  movem.l d0-d7/a0-a6,-(a7)
  1041.  jsr JUSTDRAWIT
  1042.  movem.l (a7)+,d0-d7/a0-a6
  1043.  jsr WAITFORNOPRESS
  1044.  bra .wtnum
  1045.  rts
  1046.  ENDC
  1047.  
  1048.  
  1049. MASTERMENU:
  1050.  
  1051.  move.b #'m',mors
  1052.  
  1053.  move.w #0,LEVELSELECTED
  1054.  
  1055.  move.w #0,d0 
  1056.  move.l #CURRENTLEVELLINEM,a1
  1057.  muls #40,d0
  1058.  move.l LINKFILE,a0
  1059.  add.l #LevelName,a0
  1060.  add.l d0,a0
  1061.  bsr PUTINLINE
  1062.  
  1063. ; Stay here until 'play game' is selected.
  1064.  
  1065.  move.w #4,OptScrn
  1066.  bsr DRAWOPTSCRN
  1067.  move.w #1,OPTNUM
  1068.  
  1069.  bsr HIGHLIGHT
  1070.  
  1071.  bsr WAITREL
  1072. .rdlop:
  1073.  bsr CHECKMENU
  1074.  tst.w d0
  1075.  blt.s .rdlop
  1076.  bsr WAITREL
  1077.  
  1078.  cmp.w #1,d0
  1079.  bne.s .nonextlev
  1080.  
  1081.  move.w LEVELSELECTED,d0
  1082.  add.w #1,d0
  1083.  cmp.w MAXLEVEL,d0
  1084.  blt .nowrap
  1085.  moveq #0,d0
  1086. .nowrap:
  1087. ; and.w #$f,d0
  1088.  move.w d0,LEVELSELECTED
  1089.  move.l #CURRENTLEVELLINEM,a1
  1090.  muls #40,d0
  1091.  move.l LINKFILE,a0
  1092.  add.l #LevelName,a0
  1093.  add.l d0,a0
  1094.  bsr PUTINLINE
  1095.  bsr JUSTDRAWIT
  1096.  bra .rdlop
  1097.  
  1098. .nonextlev:
  1099.  
  1100.  cmp.w #2,d0
  1101.  beq .playgame
  1102.  
  1103.  cmp.w #0,d0
  1104.  bne .noopt
  1105.  
  1106.  bra SLAVEMENU
  1107.  
  1108. .noopt:
  1109.  
  1110.  cmp.w #3,d0
  1111.  bne .nocontrol
  1112.  
  1113.  bsr CHANGECONTROLS
  1114.  
  1115.  move.w #4,OptScrn
  1116.  bsr DRAWOPTSCRN
  1117.  move.w #0,OPTNUM
  1118.  
  1119.  bsr HIGHLIGHT
  1120.  
  1121.  bsr WAITREL
  1122.  bra .rdlop
  1123.  
  1124. .nocontrol:
  1125.  
  1126. .playgame
  1127.  
  1128.  move.w LEVELSELECTED,PLOPT
  1129.  rts
  1130.  
  1131. SLAVEMENU:
  1132.  
  1133.  move.b #'s',mors
  1134.  
  1135. ; Stay here until 'play game' is selected.
  1136.  
  1137.  move.w #5,OptScrn
  1138.  bsr DRAWOPTSCRN
  1139.  move.w #1,OPTNUM
  1140.  
  1141.  bsr HIGHLIGHT
  1142.  
  1143.  bsr WAITREL
  1144. .rdlop:
  1145.  bsr CHECKMENU
  1146.  tst.w d0
  1147.  blt.s .rdlop
  1148.  bsr WAITREL
  1149.  
  1150.  cmp.w #1,d0
  1151.  beq .playgame
  1152.  
  1153.  cmp.w #0,d0
  1154.  bne .noopt
  1155.  
  1156.  bra READMAINMENU
  1157.  
  1158. .noopt:
  1159.  
  1160.  cmp.w #2,d0
  1161.  bne .nocontrol
  1162.  
  1163.  bsr CHANGECONTROLS
  1164.  
  1165.  move.w #5,OptScrn
  1166.  bsr DRAWOPTSCRN
  1167.  move.w #0,OPTNUM
  1168.  
  1169.  bsr HIGHLIGHT
  1170.  
  1171.  bsr WAITREL
  1172.  bra .rdlop
  1173.  
  1174. .nocontrol:
  1175. .playgame:
  1176.  
  1177.  rts
  1178.  
  1179. STATBACK: ds.w 34
  1180.  
  1181. TWOPLAYER:
  1182.  
  1183.  move.w #200,PLAYERONEHEALTH
  1184.  move.w #200,PLAYERTWOHEALTH
  1185.  
  1186.  st.b PLAYERONEGUNS+1
  1187.  st.b PLAYERONEGUNS+3
  1188.  st.b PLAYERONEGUNS+5
  1189.  st.b PLAYERONEGUNS+7
  1190.  st.b PLAYERONEGUNS+9
  1191.  st.b PLAYERONEGUNS+11
  1192.  st.b PLAYERONEGUNS+13
  1193.  st.b PLAYERONEGUNS+15
  1194.  st.b PLAYERONEGUNS+17
  1195.  st.b PLAYERONEGUNS+19
  1196.  
  1197.  st.b PLAYERTWOGUNS+1
  1198.  st.b PLAYERTWOGUNS+3
  1199.  st.b PLAYERTWOGUNS+5
  1200.  st.b PLAYERTWOGUNS+7
  1201.  st.b PLAYERTWOGUNS+9
  1202.  st.b PLAYERTWOGUNS+11
  1203.  st.b PLAYERTWOGUNS+13
  1204.  st.b PLAYERTWOGUNS+15
  1205.  st.b PLAYERTWOGUNS+17
  1206.  st.b PLAYERTWOGUNS+19
  1207.  
  1208.  move.l #PLAYERONEAMMO,a0
  1209.  move.l #PLAYERTWOAMMO,a1
  1210.  move.w #19,d1
  1211. .putinvals
  1212.  jsr GetRand
  1213.  and.w #63,d0
  1214.  add.w #5,d0
  1215.  move.w d0,(a0)+
  1216.  move.w d0,(a1)+
  1217.  dbra d1,.putinvals
  1218.  
  1219.  rts
  1220.  
  1221.  move.w #0,OldEnergy
  1222.  move.w #127,Energy
  1223.  jsr EnergyBar
  1224.  
  1225.  move.w #63,OldAmmo
  1226.  move.w #0,Ammo
  1227.  jsr AmmoBar
  1228.  move.w #0,OldAmmo
  1229.  
  1230.  move.b #0,PLR1_GunSelected
  1231.  
  1232.  move.b #0,PLR2_GunSelected
  1233.  rts
  1234.  
  1235. newdum:
  1236.  rts
  1237.  
  1238. DEFAULTGAME:
  1239.  move.w #0,MAXLEVEL
  1240.  
  1241.  move.l #MASTERPLAYERONEHEALTH,a0
  1242.  move.l #MASTERPLAYERONESHIELD,a1
  1243.  move.l #0,(a0)+
  1244.  move.l #0,(a0)+
  1245.  move.l #0,(a0)+
  1246.  move.l #0,(a0)+
  1247.  move.l #0,(a0)+
  1248.  move.l #0,(a0)+
  1249.  move.l #0,(a0)+
  1250.  move.l #0,(a0)+
  1251.  move.l #0,(a0)+
  1252.  move.l #0,(a0)+
  1253.  move.l #0,(a0)+
  1254.  
  1255.  move.l #0,(a1)+
  1256.  move.l #0,(a1)+
  1257.  move.l #0,(a1)+
  1258.  move.l #0,(a1)+
  1259.  move.l #0,(a1)+
  1260.  move.l #0,(a1)+
  1261.  
  1262.  move.w #200,MASTERPLAYERONEHEALTH
  1263.  move.w #$ff,MASTERPLAYERONEGUNS
  1264.  
  1265.  move.l LINKFILE,a5
  1266.  add.l #GunBulletTypes,a5
  1267.  move.w (a5),d0
  1268.  
  1269.  move.l #MASTERPLAYERONEAMMO,a5
  1270.  move.w #20,(a5,d0.w*2)
  1271.  
  1272.  rts
  1273.  
  1274. CHKPROT: dc.w 0
  1275.  
  1276. GETPARITY:
  1277.  move.w #6,d3
  1278. .calcparity:
  1279.  btst d3,d0
  1280.  beq.s .nochange
  1281.  bchg #7,d0
  1282. .nochange:
  1283.  dbra d3,.calcparity
  1284.  rts
  1285.  
  1286. CHECKPARITY:
  1287.  move.w #6,d3
  1288.  move.b #$0,d2
  1289. .calcparity:
  1290.  btst d3,d0
  1291.  beq.s .nochange
  1292.  bchg #7,d2
  1293. .nochange:
  1294.  dbra d3,.calcparity
  1295.  move.b d0,d1
  1296.  and.b #$80,d1
  1297.  eor.b d1,d2
  1298.  sne.s d5
  1299.  rts
  1300.  
  1301. CALCPASSWORD:
  1302.  rts
  1303.  
  1304. PASSLINETOGAME:
  1305.  rts
  1306.  
  1307. illega:
  1308.  
  1309.  move.w #-1,d0
  1310.  
  1311.  rts
  1312.  
  1313. PASSBUFFER:
  1314.  ds.b 8
  1315.  
  1316. CHECKBUFFER: ds.b 8
  1317.  
  1318. PASS:
  1319.  ds.b 16
  1320.  
  1321. **************************************************
  1322.  
  1323. CHANGECONTROLS:
  1324.  
  1325.  move.w #6,OptScrn
  1326.  bsr DRAWOPTSCRN
  1327.  move.w #0,OPTNUM
  1328.  bsr HIGHLIGHT
  1329.  bsr WAITREL
  1330.  
  1331. .rdlop:
  1332.  bsr CHECKMENU
  1333.  tst.w d0
  1334.  blt.s .rdlop
  1335.  
  1336.  cmp.w #17,d0
  1337.  beq .backtomain
  1338.  
  1339.  move.l #KEY_LINES,a0
  1340.  move.w d0,d1
  1341.  muls #40,d1
  1342.  add.l d1,a0
  1343.  add.w #32,a0
  1344.  move.l #$20202020,(a0)
  1345.  movem.l d0/a0,-(a7)
  1346.  bsr JUSTDRAWIT
  1347.  movem.l (a7)+,d0/a0 
  1348.  
  1349.  clr.b lastpressed
  1350.  
  1351. .wtkey
  1352.  tst.b lastpressed
  1353.  beq .wtkey
  1354.  
  1355.  move.l #CONTROLBUFFER,a1
  1356.  moveq #0,d1
  1357.  move.b lastpressed,d1
  1358.  move.b d1,(a1,d0.w)
  1359.  move.l #KVALTOASC,a1
  1360.  move.l (a1,d1.w*4),(a0)
  1361.  bsr JUSTDRAWIT
  1362.  bsr WAITREL
  1363.  bra .rdlop
  1364.  
  1365. .backtomain:
  1366.  rts
  1367.  
  1368. **************************************************
  1369.  
  1370.  
  1371. MAXLEVEL: dc.w 0
  1372.  
  1373. SHOWCREDITS:
  1374.  move.w #2,OptScrn
  1375.  bsr DRAWOPTSCRN
  1376.  move.w #0,OPTNUM
  1377.  bsr HIGHLIGHT
  1378.  
  1379.  bsr WAITREL
  1380.  
  1381. .rdlop:
  1382.  bsr CHECKMENU
  1383.  tst.w d0
  1384.  blt.s .rdlop
  1385.  
  1386.  bra READMAINMENU
  1387.  
  1388. HELDDOWN:
  1389.  dc.w 0
  1390.  
  1391. WAITREL:
  1392.  
  1393.  movem.l d0/d1/d2/d3,-(a7)
  1394.  
  1395.  move.l #KeyMap,a5
  1396. WAITREL2:
  1397.  btst #7,$bfe001
  1398.  beq.s WAITREL2
  1399.  
  1400.  IFEQ CD32VER
  1401.  tst.b $40(a5)
  1402.  bne.s WAITREL2
  1403.  tst.b $44(a5)
  1404.  bne.s WAITREL2
  1405.  tst.b $4c(a5)
  1406.  bne.s WAITREL2
  1407.  tst.b $4d(a5)
  1408.  bne.s WAITREL2
  1409.  ENDC
  1410.  
  1411.  btst #1,$dff00c
  1412.  sne d0
  1413.  btst #1,$dff00d
  1414.  sne d1
  1415.  btst #0,$dff00c
  1416.  sne d2
  1417.  btst #0,$dff00d
  1418.  sne d3
  1419.  
  1420.  eor.b d0,d2
  1421.  eor.b d1,d3
  1422.  tst.b d2
  1423.  bne.s WAITREL2
  1424.  tst.b d3
  1425.  bne.s WAITREL2
  1426.  
  1427.  
  1428.  movem.l (a7)+,d0/d1/d2/d3
  1429.  rts
  1430.  
  1431. PUTINLINE:
  1432.  moveq #39,d0
  1433. pill
  1434.  move.b (a0)+,(a1)+
  1435.  dbra d0,pill
  1436.  rts
  1437.  
  1438. CHECKMENU:
  1439.  btst #1,$dff00c
  1440.  sne d0
  1441.  btst #1,$dff00d
  1442.  sne d1
  1443.  btst #0,$dff00c
  1444.  sne d2
  1445.  btst #0,$dff00d
  1446.  sne d3
  1447.  
  1448.  eor.b d0,d2
  1449.  eor.b d1,d3
  1450.  
  1451.  move.l #KeyMap,a5
  1452.  move.b $4c(a5),d0
  1453.  move.b $4d(a5),d1
  1454.  or.b d1,d3
  1455.  or.b d0,d2
  1456.  
  1457.  move.w OptScrn,d0
  1458.  move.l #MENUDATA,a0
  1459.  move.l 4(a0,d0.w*8),a0    ; opt data
  1460.  
  1461.  move.w OPTNUM,d0
  1462.  
  1463.  tst.b d2
  1464.  beq.s NOPREV
  1465.  
  1466.  
  1467.  sub.w #1,d0
  1468.  bge.s NOPREV
  1469.  
  1470.  move.w #0,d0 
  1471.  
  1472. NOPREV:
  1473.  
  1474.  tst.b d3
  1475.  beq.s NONEXT
  1476.  
  1477.  bsr WAITREL
  1478.  
  1479.  add.w #1,d0
  1480.  tst.w (a0,d0.w*8)
  1481.  bge.s NONEXT
  1482.  
  1483.  subq #1,d0
  1484.  
  1485. NONEXT:
  1486.  
  1487.  cmp.w OPTNUM,d0
  1488.  beq.s .nochange
  1489.  
  1490.  bsr HIGHLIGHT
  1491.  move.w d0,OPTNUM
  1492.  bsr HIGHLIGHT
  1493.  bsr WAITREL
  1494.  
  1495. .nochange:
  1496.  
  1497.  move.w #-1,d0
  1498.  
  1499.  btst #7,$bfe001
  1500.  beq.s select
  1501.  move.b $40(a5),d1
  1502.  or.b $44(a5),d1
  1503.  tst.b d1
  1504.  beq.s noselect
  1505.  
  1506. select:
  1507.  bsr WAITREL
  1508.  move.w OPTNUM,d0
  1509. noselect:
  1510.  
  1511.  rts
  1512.  
  1513. HIGHLIGHT:
  1514.  
  1515.  SAVEREGS
  1516.  
  1517.  move.w OptScrn,d0
  1518.  move.l #MENUDATA,a0
  1519.  move.l 4(a0,d0.w*8),a0
  1520.  move.w OPTNUM,d0
  1521.  lea (a0,d0.w*8),a0
  1522.  move.w (a0)+,d0    ;left
  1523.  move.w (a0)+,d1    ;top
  1524.  move.w (a0)+,d2    ;width
  1525.  
  1526.  muls #16*8,d1
  1527.  move.l OPTSPRADDR,a1
  1528.  add.w d1,a1
  1529.  add.w #8+16,a1
  1530.  move.l #SCRTOSPR2,a5
  1531.  adda.w d0,a5
  1532.  adda.w d0,a5
  1533.  
  1534. NOTLOP:
  1535.  
  1536.  move.w (a5)+,d3
  1537.  lea (a1,d3.w),a2
  1538.  not.b (a2)
  1539.  not.b 16(a2)
  1540.  not.b 32(a2)
  1541.  not.b 48(a2)
  1542.  not.b 64(a2)
  1543.  not.b 80(a2)
  1544.  not.b 96(a2)
  1545.  not.b 112(a2)
  1546.  not.b 128(a2)
  1547.  subq #1,d2
  1548.  bgt.s NOTLOP
  1549.  
  1550.  GETREGS
  1551.  rts
  1552.  
  1553. SCRTOSPR2:
  1554. val SET 0
  1555.  REPT 6
  1556.  dc.w val+0
  1557.  dc.w val+1
  1558.  dc.w val+2
  1559.  dc.w val+3
  1560.  dc.w val+4
  1561.  dc.w val+5
  1562.  dc.w val+6
  1563.  dc.w val+7
  1564. val SET val+258*16
  1565.  ENDR
  1566.  
  1567. CLROPTSCRN:
  1568.  
  1569.  move.l #$2cdfea,d0
  1570.  move.w (a4,d0.l),d0
  1571.  add.w d0,RVAL2
  1572.  
  1573.  move.l OPTSPRADDR,a0
  1574.  lea 16(a0),a1
  1575.  lea 16+(258*16)(a0),a2
  1576.  lea 16+(258*16*2)(a0),a3
  1577.  lea 16+(258*16*3)(a0),a4
  1578.  lea 258*16(a4),a0
  1579.  
  1580.  move.w #256,d0
  1581.  moveq #0,d1
  1582. CLRLOP:
  1583.  move.l d1,(a0)+
  1584.  move.l d1,(a0)+
  1585.  move.l d1,(a0)+
  1586.  move.l d1,(a0)+
  1587.  move.l d1,(a1)+
  1588.  move.l d1,(a1)+
  1589.  move.l d1,(a1)+
  1590.  move.l d1,(a1)+
  1591.  move.l d1,(a2)+
  1592.  move.l d1,(a2)+
  1593.  move.l d1,(a2)+
  1594.  move.l d1,(a2)+
  1595.  move.l d1,(a3)+
  1596.  move.l d1,(a3)+
  1597.  move.l d1,(a3)+
  1598.  move.l d1,(a3)+
  1599.  move.l d1,(a4)+
  1600.  move.l d1,(a4)+
  1601.  move.l d1,(a4)+
  1602.  move.l d1,(a4)+
  1603.  dbra d0,CLRLOP
  1604.  
  1605.  move.l OPTSPRADDR,a0
  1606.  move.w #44*256+64,(a0)
  1607.  move.w #44*256+2,8(a0)
  1608.  add.l #258*16,a0
  1609.  
  1610.  move.w #44*256+96,(a0)
  1611.  move.w #44*256+2,8(a0)
  1612.  add.l #258*16,a0
  1613.  
  1614.  move.w #44*256+128,(a0)
  1615.  move.w #44*256+2,8(a0)
  1616.  add.l #258*16,a0
  1617.  
  1618.  move.w #44*256+160,(a0)
  1619.  move.w #44*256+2,8(a0)
  1620.  add.l #258*16,a0
  1621.  
  1622.  move.w #44*256+192,(a0)
  1623.  move.w #44*256+2,8(a0)
  1624.  
  1625.  rts
  1626.  
  1627. DRAWOPTSCRN:
  1628.  
  1629.  bsr CLROPTSCRN
  1630.  
  1631. JUSTDRAWIT:
  1632.  
  1633.  move.l #font,a0
  1634.  move.l #MENUDATA,a1
  1635.  move.w OptScrn,d0
  1636.  move.l (a1,d0.w*8),a1
  1637.  
  1638.  move.l OPTSPRADDR,a3
  1639.  add.l #16,a3
  1640.  moveq #0,d2
  1641.  
  1642.  move.w #31,d0
  1643. linelop:
  1644.  move.w #39,d1
  1645.  move.l #SCRTOSPR,a4
  1646.  move.l a3,a2
  1647. charlop:
  1648.  move.b (a1)+,d2
  1649.  lea (a0,d2.w*8),a5
  1650.  move.b (a5)+,(a2)
  1651.  move.b (a5)+,16(a2)
  1652.  move.b (a5)+,32(a2)
  1653.  move.b (a5)+,48(a2)
  1654.  move.b (a5)+,64(a2)
  1655.  move.b (a5)+,80(a2)
  1656.  move.b (a5)+,96(a2)
  1657.  move.b (a5),112(a2)
  1658.  add.w (a4)+,a2
  1659.  dbra d1,charlop
  1660.  add.w #16*8,a3
  1661.  dbra d0,linelop
  1662.  
  1663.  rts
  1664.   
  1665. SCRTOSPR:
  1666.  dc.w 1,1,1,1,1,1,1,258*16-7
  1667.  dc.w 1,1,1,1,1,1,1,258*16-7
  1668.  dc.w 1,1,1,1,1,1,1,258*16-7
  1669.  dc.w 1,1,1,1,1,1,1,258*16-7
  1670.  dc.w 1,1,1,1,1,1,1,258*16-7
  1671.  dc.w 1,1,1,1,1,1,1,258*16-7
  1672.   
  1673. OPTNUM: dc.w 0
  1674. OptScrn: dc.w 0
  1675.  
  1676. SAVEGAMENAME: dc.b "tkg2:boot.dat",0
  1677.  even
  1678.  
  1679. SAVEGAMEPOS: dc.l 0
  1680. SAVEGAMELEN: dc.l 0
  1681.  
  1682. LOADPOSITION: 
  1683.  
  1684.  move.l #SAVEGAMENAME,a0
  1685.  move.l #SAVEGAMEPOS,d0
  1686.  move.l #SAVEGAMELEN,d1
  1687.  jsr INITQUEUE
  1688.  jsr QUEUEFILE
  1689.  jsr FLUSHQUEUE
  1690.  
  1691.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1692.  
  1693.  move.l #LSLOTA,a4
  1694.  
  1695.  move.l a2,a3
  1696.  move.w #5,d7
  1697. .findlevs:
  1698.  
  1699.  move.l a4,a1
  1700.  move.w (a3),d1
  1701.  muls #40,d1
  1702.  move.l LINKFILE,a0
  1703.  add.l #LevelName,a0
  1704.  add.l d1,a0
  1705.  jsr PUTINLINE
  1706.  add.l #80,a4
  1707.  add.w #2+(22*2)+(12*2),a3
  1708.  
  1709.  dbra d7,.findlevs
  1710.  
  1711.  move.w #8,OptScrn
  1712.  move.w #0,OPTNUM
  1713.  
  1714.  bsr DRAWOPTSCRN
  1715.  bsr HIGHLIGHT
  1716.  bsr WAITREL
  1717.  
  1718. .rdlop:
  1719.  bsr CHECKMENU
  1720.  tst.w d0
  1721.  blt.s .rdlop
  1722.  
  1723.  cmp.w #6,d0
  1724.  beq.s .noload
  1725.  
  1726.  move.l SAVEGAMEPOS,a0
  1727.  muls #2+(22*2)+(12*2),d0
  1728.  add.l d0,a0
  1729.  
  1730.  move.l #MASTERPLAYERONEHEALTH,a1
  1731.  move.w (a0)+,MAXLEVEL
  1732.  
  1733.  REPT 11
  1734.  move.l (a0)+,(a1)+
  1735.  ENDR
  1736.  REPT 6
  1737.  move.l (a0)+,(a1)+
  1738.  ENDR
  1739.  
  1740.  move.w MAXLEVEL,d0
  1741.  move.l #CURRENTLEVELLINE,a1
  1742.  muls #40,d0
  1743.  move.l LINKFILE,a0
  1744.  add.l #LevelName,a0
  1745.  add.l d0,a0
  1746.  bsr PUTINLINE
  1747.  
  1748. .noload:
  1749.  
  1750.  move.l SAVEGAMEPOS,a1
  1751.  move.l SAVEGAMELEN,d0
  1752.  CALLEXEC FreeMem
  1753.  
  1754.  rts
  1755.  
  1756. SAVEPOSITION:
  1757.  
  1758.  
  1759.  move.l #SAVEGAMENAME,a0
  1760.  move.l #SAVEGAMEPOS,d0
  1761.  move.l #SAVEGAMELEN,d1
  1762.  jsr INITQUEUE
  1763.  jsr QUEUEFILE
  1764.  jsr FLUSHQUEUE
  1765.  
  1766.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1767.  
  1768.  move.l #SSLOTA,a4
  1769.  
  1770.  move.l a2,a3
  1771.  move.w #5,d7
  1772. .findlevs:
  1773.  
  1774.  move.l a4,a1
  1775.  move.w (a3),d1
  1776.  muls #40,d1
  1777.  move.l LINKFILE,a0
  1778.  add.l #LevelName,a0
  1779.  add.l d1,a0
  1780.  jsr PUTINLINE
  1781.  add.l #80,a4
  1782.  add.w #2+(22*2)+(12*2),a3
  1783.  
  1784.  dbra d7,.findlevs
  1785.  
  1786.  move.w #9,OptScrn
  1787.  move.w #0,OPTNUM
  1788.  
  1789.  bsr DRAWOPTSCRN
  1790.  bsr HIGHLIGHT
  1791.  bsr WAITREL
  1792.  
  1793. .rdlop:
  1794.  bsr CHECKMENU
  1795.  tst.w d0
  1796.  blt.s .rdlop
  1797.  
  1798.  cmp.w #6,d0
  1799.  beq .nosave
  1800.  
  1801.  move.l SAVEGAMEPOS,a0
  1802.  muls #2+(22*2)+(12*2),d0
  1803.  add.l d0,a0
  1804.  
  1805.  move.l #MASTERPLAYERONEHEALTH,a1
  1806.  move.w MAXLEVEL,(a0)+
  1807.  
  1808.  REPT 11
  1809.  move.l (a1)+,(a0)+
  1810.  ENDR
  1811.  REPT 6
  1812.  move.l (a1)+,(a0)+
  1813.  ENDR
  1814.   
  1815.  move.l old,$dff080
  1816.  move.w #$8020,$dff000+intena
  1817.  
  1818.  move.l _IntuitionBase,a6
  1819.  jsr _LVORethinkDisplay(a6)
  1820.  
  1821.  move.l doslib,a6
  1822.  move.l #SAVEGAMENAME,d1
  1823.  move.l #1006,d2
  1824.  jsr -30(a6)
  1825.  move.l d0,handle
  1826.  
  1827.  move.l doslib,a6
  1828.  move.l SAVEGAMEPOS,d2
  1829.  move.l handle,d1
  1830.  move.l SAVEGAMELEN,d3
  1831.  jsr _LVOWrite(a6)
  1832.  
  1833.  move.l doslib,a6
  1834.  move.l handle,d1
  1835.  jsr -36(a6)
  1836.  
  1837.  move.l doslib,a6
  1838.  move.l #200,d1
  1839.  jsr -198(a6) 
  1840.  
  1841.  move.w #$0020,$dff000+intena
  1842.  move.l #titlecop,$dff080
  1843.   
  1844. .nosave:
  1845.  
  1846.  move.l SAVEGAMEPOS,a1
  1847.  move.l SAVEGAMELEN,d0
  1848.  CALLEXEC FreeMem
  1849.  
  1850.  rts
  1851.  
  1852. MENUDATA:
  1853. ;0
  1854.  dc.l ONEPLAYERMENU_TXT
  1855.  dc.l ONEPLAYERMENU_OPTS
  1856. ;1
  1857.  dc.l INSTRUCTIONS_TXT
  1858.  dc.l INSTRUCTIONS_OPTS
  1859. ;2
  1860.  dc.l CREDITMENU_TXT
  1861.  dc.l CREDITMENU_OPTS
  1862. ;3
  1863.  dc.l ASKFORDISK_TXT
  1864.  dc.l ASKFORDISK_OPTS
  1865. ;4
  1866. ; dc.l ONEPLAYERMENU_TXT
  1867. ; dc.l ONEPLAYERMENU_OPTS
  1868.  dc.l MASTERPLAYERMENU_TXT
  1869.  dc.l MASTERPLAYERMENU_OPTS
  1870. ;5
  1871.  dc.l SLAVEPLAYERMENU_TXT
  1872.  dc.l SLAVEPLAYERMENU_OPTS
  1873. ;6
  1874.  dc.l CONTROL_TXT
  1875.  dc.l CONTROL_OPTS
  1876. ;7
  1877.  dc.l PROTMENU_TXT
  1878.  dc.l CONTROL_OPTS
  1879. ;8
  1880.  dc.l LOADMENU_TXT
  1881.  dc.l LOADMENU_OPTS
  1882. ;9
  1883.  dc.l SAVEMENU_TXT
  1884.  dc.l SAVEMENU_OPTS
  1885. ;10
  1886.  dc.l LEVELDISK_TXT
  1887.  dc.l ASKFORDISK_OPTS
  1888.  
  1889.  
  1890. EMPTYSLOTNAME:
  1891. ;      0123456789012345678901234567890123456789
  1892.  dc.b '               EMPTY SLOT               ' 
  1893.  
  1894. LOADMENU_TXT: 
  1895. ;      0123456789012345678901234567890123456789
  1896.  dc.b '                                        ' ;0
  1897.  dc.b '                                        ' ;1
  1898.  dc.b '                                        ' ;2
  1899.  dc.b '                                        ' ;3
  1900.  dc.b '         LOAD A SAVED POSITION:         ' ;4
  1901.  dc.b '                                        ' ;5
  1902.  dc.b '                                        ' ;6
  1903.  dc.b '                                        ' ;7
  1904.  dc.b '                                        ' ;8
  1905. LSLOTA:
  1906.  dc.b '                                        ' ;9
  1907.  dc.b '                                        ' ;0
  1908. LSLOTB:
  1909.  dc.b '                                        ' ;1
  1910.  dc.b '                                        ' ;2
  1911. LSLOTC:
  1912.  dc.b '                                        ' ;3
  1913.  dc.b '                                        ' ;4
  1914. LSLOTD:
  1915.  dc.b '                                        ' ;5
  1916.  dc.b '                                        ' ;6
  1917. LSLOTE:
  1918.  dc.b '                                        ' ;7
  1919.  dc.b '                                        ' ;8
  1920. LSLOTF:
  1921.  dc.b '                                        ' ;9
  1922.  dc.b '                                        ' ;0
  1923.  dc.b '               * CANCEL *               ' ;1
  1924.  dc.b '                                        ' ;2
  1925.  dc.b '                                        ' ;3
  1926.  dc.b '                                        ' ;4
  1927.  dc.b '                                        ' ;5
  1928.  dc.b '                                        ' ;6
  1929.  dc.b '                                        ' ;7
  1930.  dc.b '                                        ' ;8
  1931.  dc.b '                                        ' ;9
  1932.  dc.b '                                        ' ;0
  1933.  dc.b '                                        ' ;1
  1934.  
  1935. LOADMENU_OPTS:
  1936.  dc.w 0,9,40,1
  1937.  dc.w 0,11,40,1
  1938.  dc.w 0,13,40,1
  1939.  dc.w 0,15,40,1
  1940.  dc.w 0,17,40,1
  1941.  dc.w 0,19,40,1
  1942.  dc.w 14,21,12,1
  1943.  dc.w -1
  1944.  
  1945. LEVELDISK_TXT:
  1946. ;      0123456789012345678901234567890123456789
  1947.  dc.b '                                        ' ;0
  1948.  dc.b '                                        ' ;0
  1949.  dc.b '                                        ' ;0
  1950.  dc.b '                                        ' ;0
  1951.  dc.b '                                        ' ;0
  1952.  dc.b '                                        ' ;0
  1953.  dc.b '                                        ' ;0
  1954.  dc.b '                                        ' ;0
  1955.  dc.b '                                        ' ;0
  1956.  dc.b '                                        ' ;0
  1957.  dc.b '                                        ' ;0
  1958.  dc.b '  IF PLAYING FROM DISK, PLEASE INSERT   ' ;0
  1959.  dc.b '       LEVELS DISK IN DRIVE DF0:        ' ;0
  1960.  dc.b '                                        ' ;0
  1961.  dc.b '     PRESS MOUSE BUTTON WHEN READY..    ' ;0
  1962.  dc.b '                                        ' ;0
  1963.  dc.b '                                        ' ;0
  1964.  dc.b '                                        ' ;0
  1965.  dc.b '                                        ' ;0
  1966.  dc.b '                                        ' ;0
  1967.  dc.b '                                        ' ;0
  1968.  dc.b '                                        ' ;0
  1969.  dc.b '                                        ' ;0
  1970.  dc.b '                                        ' ;0
  1971.  dc.b '                                        ' ;0
  1972.  dc.b '                                        ' ;0
  1973.  dc.b '                                        ' ;0
  1974.  dc.b '                                        ' ;0
  1975.  dc.b '                                        ' ;0
  1976.  dc.b '                                        ' ;0
  1977.  dc.b '                                        ' ;0
  1978.  dc.b '                                        ' ;0
  1979.  
  1980.  
  1981. SAVEMENU_TXT: 
  1982. ;      0123456789012345678901234567890123456789
  1983.  dc.b '                                        ' ;0
  1984.  dc.b '                                        ' ;1
  1985.  dc.b '                                        ' ;2
  1986.  dc.b '                                        ' ;3
  1987.  dc.b '         SAVE CURRENT POSITION:         ' ;4
  1988.  dc.b '                                        ' ;5
  1989.  dc.b '                                        ' ;6
  1990.  dc.b '                                        ' ;7
  1991.  dc.b '                                        ' ;8
  1992. SSLOTA:
  1993.  dc.b '                                        ' ;9
  1994.  dc.b '                                        ' ;0
  1995. SSLOTB:
  1996.  dc.b '                                        ' ;1
  1997.  dc.b '                                        ' ;2
  1998. SSLOTC:
  1999.  dc.b '                                        ' ;3
  2000.  dc.b '                                        ' ;4
  2001. SSLOTD:
  2002.  dc.b '                                        ' ;5
  2003.  dc.b '                                        ' ;6
  2004. SSLOTE:
  2005.  dc.b '                                        ' ;7
  2006.  dc.b '                                        ' ;8
  2007. SSLOTF:
  2008.  dc.b '                                        ' ;9
  2009.  dc.b '                                        ' ;0
  2010.  dc.b '               * CANCEL *               ' ;1
  2011.  dc.b '                                        ' ;2
  2012.  dc.b '                                        ' ;3
  2013.  dc.b '                                        ' ;4
  2014.  dc.b '                                        ' ;5
  2015.  dc.b '                                        ' ;6
  2016.  dc.b '                                        ' ;7
  2017.  dc.b '                                        ' ;8
  2018.  dc.b '                                        ' ;9
  2019.  dc.b '                                        ' ;0
  2020.  dc.b '                                        ' ;1
  2021.  
  2022. SAVEMENU_OPTS:
  2023.  dc.w 0,9,40,1
  2024.  dc.w 0,11,40,1
  2025.  dc.w 0,13,40,1
  2026.  dc.w 0,15,40,1
  2027.  dc.w 0,17,40,1
  2028.  dc.w 0,19,40,1
  2029.  dc.w 14,21,12,1
  2030.  dc.w -1
  2031.  
  2032.  
  2033. ASKFORDISK_TXT:
  2034. ;      0123456789012345678901234567890123456789
  2035.  dc.b '                                        ' ;0
  2036.  dc.b '                                        ' ;1
  2037.  dc.b '                                        ' ;2
  2038.  dc.b '                                        ' ;3
  2039.  dc.b '                                        ' ;4
  2040.  dc.b '                                        ' ;5
  2041.  dc.b '                                        ' ;6
  2042.  dc.b '                                        ' ;7
  2043.  dc.b '                                        ' ;8
  2044.  dc.b '                                        ' ;9
  2045.  dc.b '                                        ' ;0
  2046.  dc.b '                                        ' ;1
  2047.  dc.b '                                        ' ;2
  2048.  dc.b '         PLEASE INSERT VOLUME:          ' ;3
  2049.  dc.b '                                        ' ;4
  2050. VOLLINE:
  2051.  dc.b '                                        ' ;9
  2052.  dc.b '                                        ' ;9
  2053.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  2054.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  2055.  dc.b '               FINISHES                 ' ;7
  2056.  dc.b '                                        ' ;8
  2057.  dc.b '                                        ' ;1
  2058.  dc.b '                                        ' ;2
  2059.  dc.b '                                        ' ;3
  2060.  dc.b '                                        ' ;4
  2061.  dc.b '                                        ' ;5
  2062.  dc.b '                                        ' ;6
  2063.  dc.b '                                        ' ;7
  2064.  dc.b '                                        ' ;8
  2065.  dc.b '                                        ' ;9
  2066.  dc.b '                                        ' ;0
  2067.  dc.b '                                        ' ;1
  2068.  
  2069. ASKFORDISK_OPTS:
  2070.  dc.w -1
  2071.  
  2072.  
  2073. ONEPLAYERMENU_TXT:
  2074. ;      0123456789012345678901234567890123456789
  2075.  dc.b '                                        ' ;0
  2076.  dc.b '                                        ' ;1
  2077.  dc.b '                                        ' ;2
  2078.  dc.b '                                        ' ;3
  2079.  dc.b '                                        ' ;4
  2080.  dc.b '                                        ' ;5
  2081.  dc.b '                                        ' ;6
  2082.  dc.b '                                        ' ;7
  2083.  dc.b '                                        ' ;8
  2084.  dc.b '                                        ' ;9
  2085.  dc.b '                                        ' ;0
  2086. CURRENTLEVELLINE:
  2087.  dc.b '         *** A.F DEMO LEVEL ***         ' ;1 
  2088.  dc.b '                                        ' ;2
  2089.  dc.b '                1 PLAYER                ' ;3
  2090.  dc.b '                                        ' ;4
  2091.  dc.b '               PLAY  GAME               ' ;5
  2092.  dc.b '                                        ' ;6
  2093.  dc.b '            CONTROL  OPTIONS            ' ;7
  2094.  dc.b '                                        ' ;8
  2095.  dc.b '              GAME CREDITS              ' ;9
  2096.  dc.b '                                        ' ;0
  2097.  dc.b '             LOAD  POSITION             ' ;1
  2098.  dc.b '                                        ' ;2
  2099. PASSWORDLINE:
  2100.  dc.b '             SAVE  POSITION             ' ;1
  2101.  dc.b '                                        ' ;4
  2102.  dc.b '                                        ' ;6
  2103.  dc.b '                                        ' ;6
  2104.  dc.b '                                        ' ;7
  2105.  dc.b '                                        ' ;8
  2106.  dc.b '                                        ' ;9
  2107.  dc.b '                                        ' ;0
  2108.  dc.b '                                        ' ;1
  2109.  
  2110. ONEPLAYERMENU_OPTS:
  2111.  dc.w 0,11,40,1
  2112.  dc.w 16,13,8,1
  2113.  dc.w 15,15,10,1
  2114.  dc.w 12,17,16,1
  2115.  dc.w 14,19,12,1
  2116.  dc.w 12,21,16,1
  2117.  dc.w 12,23,16,1
  2118.  dc.w -1
  2119.  
  2120.  
  2121. MASTERPLAYERMENU_TXT:
  2122. ;      0123456789012345678901234567890123456789
  2123.  dc.b '                                        ' ;0
  2124.  dc.b '                                        ' ;1
  2125.  dc.b '                                        ' ;2
  2126.  dc.b '                                        ' ;3
  2127.  dc.b '                                        ' ;4
  2128.  dc.b '                                        ' ;5
  2129.  dc.b '                                        ' ;6
  2130.  dc.b '                                        ' ;7
  2131.  dc.b '                                        ' ;8
  2132.  dc.b '                                        ' ;9
  2133.  dc.b '                                        ' ;0
  2134.  dc.b '                                        ' ;1
  2135.  dc.b '            2 PLAYER  MASTER            ' ;2
  2136.  dc.b '                                        ' ;3
  2137. CURRENTLEVELLINEM:
  2138.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  2139.  dc.b '                                        ' ;5
  2140.  dc.b '               PLAY  GAME               ' ;6
  2141.  dc.b '                                        ' ;7
  2142.  dc.b '            CONTROL  OPTIONS            ' ;8
  2143.  dc.b '                                        ' ;9
  2144.  dc.b '                                        ' ;0
  2145.  dc.b '                                        ' ;1
  2146.  dc.b '                                        ' ;2
  2147.  dc.b '                                        ' ;3
  2148.  dc.b '                                        ' ;4
  2149.  dc.b '                                        ' ;5
  2150.  dc.b '                                        ' ;6
  2151.  dc.b '                                        ' ;7
  2152.  dc.b '                                        ' ;8
  2153.  dc.b '                                        ' ;9
  2154.  dc.b '                                        ' ;0
  2155.  dc.b '                                        ' ;1
  2156.  
  2157. MASTERPLAYERMENU_OPTS:
  2158.  dc.w 12,12,16,1
  2159.  dc.w 6,14,28,1
  2160.  dc.w 15,16,10,1
  2161.  dc.w 12,18,16,1
  2162.  dc.w -1
  2163.  
  2164. SLAVEPLAYERMENU_TXT:
  2165. ;      0123456789012345678901234567890123456789
  2166.  dc.b '                                        ' ;0
  2167.  dc.b '                                        ' ;1
  2168.  dc.b '                                        ' ;2
  2169.  dc.b '                                        ' ;3
  2170.  dc.b '                                        ' ;4
  2171.  dc.b '                                        ' ;5
  2172.  dc.b '                                        ' ;6
  2173.  dc.b '                                        ' ;7
  2174.  dc.b '                                        ' ;8
  2175.  dc.b '                                        ' ;9
  2176.  dc.b '                                        ' ;9
  2177.  dc.b '                                        ' ;1
  2178.  dc.b '             2 PLAYER SLAVE             ' ;4
  2179.  dc.b '                                        ' ;3
  2180.  dc.b '               PLAY  GAME               ' ;2
  2181.  dc.b '                                        ' ;5
  2182.  dc.b '            CONTROL  OPTIONS            ' ;0
  2183.  dc.b '                                        ' ;1
  2184.  dc.b '                                        ' ;3
  2185.  dc.b '                                        ' ;7
  2186.  dc.b '                                        ' ;7
  2187.  dc.b '                                        ' ;3
  2188.  dc.b '                                        ' ;3
  2189.  dc.b '                                        ' ;3
  2190.  dc.b '                                        ' ;4
  2191.  dc.b '                                        ' ;5
  2192.  dc.b '                                        ' ;6
  2193.  dc.b '                                        ' ;7
  2194.  dc.b '                                        ' ;9
  2195.  dc.b '                                        ' ;9
  2196.  dc.b '                                        ' ;9
  2197.  dc.b '                                        ' ;9
  2198.  
  2199.  
  2200. PROTMENU_TXT:
  2201. ;      0123456789012345678901234567890123456789
  2202.  dc.b '                                        ' ;0
  2203.  dc.b '                                        ' ;1
  2204.  dc.b '                                        ' ;2
  2205.  dc.b '                                        ' ;3
  2206.  dc.b '                                        ' ;4
  2207.  dc.b '                                        ' ;5
  2208.  dc.b '                                        ' ;6
  2209.  dc.b '                                        ' ;7
  2210.  dc.b '                                        ' ;8
  2211.  dc.b '                                        ' ;9
  2212.  dc.b '                                        ' ;0
  2213.  dc.b '                                        ' ;1
  2214.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  2215.  dc.b '                                        ' ;3
  2216. PROTLINE:
  2217.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  2218.  dc.b '                                        ' ;5
  2219.  dc.b '                                        ' ;6
  2220.  dc.b '                                        ' ;7
  2221.  dc.b '                                        ' ;8
  2222.  dc.b '                                        ' ;9
  2223.  dc.b '                                        ' ;0
  2224.  dc.b '                                        ' ;1
  2225.  dc.b '                                        ' ;2
  2226.  dc.b '                                        ' ;3
  2227.  dc.b '                                        ' ;4
  2228.  dc.b '                                        ' ;5
  2229.  dc.b '                                        ' ;6
  2230.  dc.b '                                        ' ;7
  2231.  dc.b '                                        ' ;9
  2232.  dc.b '                                        ' ;0
  2233.  dc.b '                                        ' ;1
  2234.  
  2235.  
  2236.  
  2237. SLAVEPLAYERMENU_OPTS:
  2238.  dc.w 12,12,16,1
  2239.  dc.w 15,14,10,1
  2240.  dc.w 12,16,16,1
  2241.  dc.w -1
  2242.  
  2243.  
  2244. PLAYER_OPTS:
  2245. ;      0123456789012345678901234567890123456789
  2246.  dc.b '                 1 PLAYER               '
  2247.  dc.b '             2  PLAYER MASTER           '
  2248.  dc.b '              2 PLAYER SLAVE            '
  2249.  
  2250. LEVEL_OPTS:
  2251. ;      0123456789012345678901234567890123456789
  2252.  dc.b  '       CU AMIGA *EXCLUSIVE* DEMO        '
  2253.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  2254.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  2255.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  2256.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  2257.  dc.b '      LEVEL  6 :         THE MINES      '
  2258.  dc.b '      LEVEL  7 :       THE FURNACE      '
  2259.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  2260.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  2261.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  2262.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  2263.  dc.b '      LEVEL 12 :           THE PIT      '
  2264.  dc.b '      LEVEL 13 :            STRATA      '
  2265.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  2266.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  2267.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  2268.  
  2269. CONTROL_TXT:
  2270. ;      0123456789012345678901234567890123456789
  2271.  dc.b '                                        ' ;0
  2272.  dc.b '                                        ' ;1
  2273.  dc.b '            DEFINE  CONTROLS            ' ;2
  2274.  dc.b '                                        ' ;3
  2275. KEY_LINES:
  2276.  dc.b '     TURN LEFT                  LCK     ' ;4
  2277.  dc.b '     TURN RIGHT                 RCK     ' ;5
  2278.  dc.b '     FORWARDS                   UCK     ' ;6
  2279.  dc.b '     BACKWARDS                  DCK     ' ;7
  2280.  dc.b '     FIRE                       RAL     ' ;8
  2281.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;9
  2282.  dc.b '     RUN                        RSH     ' ;0
  2283.  dc.b '     FORCE SIDESTEP             RAM     ' ;1
  2284.  dc.b '     SIDESTEP LEFT               .      ' ;2
  2285.  dc.b '     SIDESTEP RIGHT              /      ' ;3
  2286.  dc.b '     DUCK                        D      ' ;4
  2287.  dc.b '     LOOK BEHIND                 L      ' ;5
  2288.  dc.b '     JUMP                       KP0     ' ;6
  2289.  dc.b '     LOOK UP                     ]      ' ;7
  2290.  dc.b '     LOOK DOWN                   #      ' ;8
  2291.  dc.b '     CENTRE VIEW                 ;      ' ;9
  2292.  dc.b '     NEXT WEAPON                RET     ' ;9
  2293.  dc.b '                                        ' ;9
  2294.  dc.b '             OTHER CONTROLS             ' ;0
  2295.  dc.b '                                        ' ;1
  2296.  dc.b '1-0   Select Weapon P              Pause' ;2
  2297.  dc.b 'F1   Zoom in on map F3 4/8 Channel Sound' ;3
  2298.  dc.b 'F2  Zoom out on map F4 Mono/Stereo Sound' ;4
  2299.  dc.b 'F5 Recall Message   F6    Render Quality'  
  2300.  dc.b '    Keypad 1-9 scroll map, 5 centres    ' ;5
  2301.  dc.b '                                        ' ;7
  2302.  dc.b '               MAIN  MENU               ' ;8
  2303.  dc.b '                                        ' ;1
  2304.  
  2305. CONTROL_OPTS:
  2306.  dc.w 5,4,30,1
  2307.  dc.w 5,5,30,1
  2308.  dc.w 5,6,30,1
  2309.  dc.w 5,7,30,1
  2310.  dc.w 5,8,30,1
  2311.  dc.w 5,9,30,1
  2312.  dc.w 5,10,30,1
  2313.  dc.w 5,11,30,1
  2314.  dc.w 5,12,30,1
  2315.  dc.w 5,13,30,1
  2316.  dc.w 5,14,30,1
  2317.  dc.w 5,15,30,1
  2318.  dc.w 5,16,30,1
  2319.  dc.w 5,17,30,1
  2320.  dc.w 5,18,30,1
  2321.  dc.w 5,19,30,1
  2322.  dc.w 5,20,30,1
  2323.  dc.w 15,30,10,1
  2324.  dc.w -1
  2325.  
  2326. PLOPT: dc.w 0
  2327.  
  2328. INSTRUCTIONS_TXT:
  2329. ;      0123456789012345678901234567890123456789
  2330.  dc.b 'Main controls:                          ' ;1
  2331.  dc.b '                                        ' ;2
  2332.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  2333.  dc.b '            Turn left / right           ' ;4
  2334.  dc.b '          Right Alt = Fire              ' ;5
  2335.  dc.b '        Right Shift = Run               ' ;6
  2336.  dc.b '                  > = Slide Left        ' ;7
  2337.  dc.b '                  ? = Slide Right       ' ;8
  2338.  dc.b '              SPACE = Operate Door/Lift ' ;9
  2339.  dc.b '                  D = Duck              ' ;0
  2340.  dc.b '                  J = Joystick Control  ' ;1
  2341.  dc.b '                  K = Keyboard Control  ' ;2
  2342.  dc.b '                                        ' ;3
  2343.  dc.b '              1,2,3 = Select weapon     ' ;4
  2344.  dc.b '              ENTER = Toggle screen size' ;5
  2345.  dc.b '                ESC = Quit              ' ;6
  2346.  dc.b '                                        ' ;7
  2347.  dc.b '                                        ' ;8
  2348.  dc.b 'The one player game has no objective and' ;9
  2349.  dc.b 'the only way to finish is to die or quit' ;0
  2350.  dc.b '                                        ' ;1
  2351.  dc.b 'The two-player game is supposed to be a ' ;2
  2352.  dc.b 'fight to the death but will probably be ' ;3
  2353.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  2354.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  2355.  dc.b '                                        ' ;6
  2356.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  2357.  dc.b 'have glowing red walls and overhead     ' ;8
  2358.  dc.b 'lights. Useful for getting behind your  ' ;9
  2359.  dc.b ' opponent!                              ' ;0
  2360.  dc.b '  Just a taster of what is to come....  ' ;1
  2361.  dc.b '                                        ' ;0
  2362.  
  2363. INSTRUCTIONS_OPTS:
  2364.  dc.w 0,0,0,1
  2365.  dc.w -1
  2366.  
  2367. CREDITMENU_TXT:
  2368.  
  2369. ;      0123456789012345678901234567890123456789
  2370.  dc.b '    Programming, Game Code, Graphics    ' ;0
  2371.  dc.b '         Game Design and Manual         ' ;1
  2372.  dc.b '            Andrew Clitheroe            ' ;2
  2373.  dc.b '                                        ' ;3
  2374.  dc.b '       Alien and Scenery Graphics       ' ;4
  2375.  dc.b '             Michael  Green             ' ;5
  2376.  dc.b '                                        ' ;6
  2377.  dc.b '           3D Object Designer           ' ;7
  2378.  dc.b '            Charles Blessing            ' ;8
  2379.  dc.b '                                        ' ;9
  2380.  dc.b '              Level Design              ' ;0
  2381.  dc.b 'Jackie Lang   Michael Green  Ben Chanter' ;1
  2382.  dc.b '                                        ' ;3
  2383.  dc.b '                                        ' ;3
  2384.  dc.b '           Creative  Director           ' ;4
  2385.  dc.b '              Martyn Brown              ' ;5
  2386.  dc.b '                                        ' ;6
  2387.  dc.b '       Project Manager and Manual       ' ;7
  2388.  dc.b '          Phil Quirke-Webster           ' ;8
  2389.  dc.b '                                        ' ;9
  2390.  dc.b '                 Music                  ' ;0
  2391.  dc.b '           Ben "666" Chanter            ' ;1
  2392.  dc.b '                                        ' ;2
  2393.  dc.b '      Cover Illustration and Logo       ' ;3
  2394.  dc.b '             Kevin Jenkins              ' ;4
  2395.  dc.b '                                        ' ;5
  2396.  dc.b '      Packaging and Manual Design       ' ;6
  2397.  dc.b '               Paul Sharp               ' ;7
  2398.  dc.b '                                        ' ;8
  2399.  dc.b '             QA and Playtest            ' ;9
  2400.  dc.b '     Too numerous to mention here!      ' ;0
  2401.  dc.b '                                        ' ;1
  2402.  
  2403.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2404.  dc.b '                   by                   ' ;5
  2405.  dc.b '            Charles Blessing            ' ;6
  2406.  dc.b '                                        ' ;7
  2407.  dc.b '                Graphics:               ' ;8
  2408.  dc.b '                   by                   ' ;9
  2409.  dc.b '              Mike  Oakley              ' ;0
  2410.  dc.b '                                        ' ;1
  2411.  dc.b '             Title  Picture             ' ;2
  2412.  dc.b '                   by                   ' ;3
  2413.  dc.b '               Mike Green               ' ;4
  2414.  dc.b '                                        ' ;5
  2415.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2416.  dc.b '     level design and plenty of tea     ' ;7
  2417.  dc.b '         generously supplied by         ' ;8
  2418.  dc.b '                                        ' ;9
  2419.  dc.b '              Jackie  Lang              ' ;0
  2420.  dc.b '                                        ' ;1
  2421.  dc.b '    Music for the last demo composed    ' ;2
  2422.  dc.b '       by the inexpressibly evil:       ' ;3
  2423.  dc.b '                                        ' ;8
  2424.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2425.  dc.b '                                        ' ;0
  2426.  dc.b '    Sadly no room for music this time   ' ;1
  2427.  dc.b '                                        ' ;7
  2428.  dc.b '                                        ' ;7
  2429.  
  2430. CREDITMENU_OPTS:
  2431.  dc.w 0,0,1,1
  2432.  dc.w -1
  2433.  
  2434.  
  2435. ;      0123456789012345678901234567890123456789
  2436.  dc.b '                                        ' ;0
  2437.  dc.b '                                        ' ;1
  2438.  dc.b '                                        ' ;2
  2439.  dc.b '                                        ' ;3
  2440.  dc.b '                                        ' ;4
  2441.  dc.b '                                        ' ;5
  2442.  dc.b '                                        ' ;6
  2443.  dc.b '                                        ' ;7
  2444.  dc.b '                                        ' ;8
  2445.  dc.b '                                        ' ;9
  2446.  dc.b '                                        ' ;0
  2447.  dc.b '                                        ' ;1
  2448.  dc.b '                                        ' ;2
  2449.  dc.b '                                        ' ;3
  2450.  dc.b '                                        ' ;4
  2451.  dc.b '                                        ' ;5
  2452.  dc.b '                                        ' ;6
  2453.  dc.b '                                        ' ;7
  2454.  dc.b '                                        ' ;8
  2455.  dc.b '                                        ' ;9
  2456.  dc.b '                                        ' ;0
  2457.  dc.b '                                        ' ;1
  2458.  dc.b '                                        ' ;2
  2459.  dc.b '                                        ' ;3
  2460.  dc.b '                                        ' ;4
  2461.  dc.b '                                        ' ;5
  2462.  dc.b '                                        ' ;6
  2463.  dc.b '                                        ' ;7
  2464.  dc.b '                                        ' ;8
  2465.  dc.b '                                        ' ;9
  2466.  dc.b '                                        ' ;0
  2467.  dc.b '                                        ' ;1
  2468.  
  2469.  
  2470. ********************************************************
  2471.  
  2472. PUTIN32:
  2473.  
  2474.  moveq #0,d2
  2475.  moveq #0,d3
  2476.  moveq #0,d4
  2477.  moveq #0,d5
  2478.  moveq #0,d6
  2479.  moveq #0,d7
  2480.  
  2481.  move.w #31,d2
  2482. p32loop:
  2483.  moveq #0,d5
  2484.  move.l (a0)+,d3
  2485.  move.w d3,d4
  2486.  swap d3
  2487.  move.b d4,d5
  2488.  lsr.w #8,d4
  2489.  
  2490.  muls d0,d3
  2491.  muls d0,d4
  2492.  muls d0,d5
  2493.  lsr.l #8,d3
  2494.  lsr.l #8,d4
  2495.  lsr.l #8,d5
  2496.  move.w d3,d6
  2497.  swap d3
  2498.  move.w d6,d3
  2499.  move.w d4,d6
  2500.  swap d4
  2501.  move.w d6,d4
  2502.  move.w d5,d6
  2503.  swap d5
  2504.  move.w d6,d5
  2505.  and.w #%11110000,d3
  2506.  and.w #%11110000,d4
  2507.  and.w #%11110000,d5
  2508.  lsl.w #4,d3
  2509.  add.w d4,d3
  2510.  lsr.w #4,d5
  2511.  add.w d5,d3
  2512.  move.w d3,2(a1)
  2513.  swap d3
  2514.  swap d4
  2515.  swap d5
  2516.  and.w #%1111,d3
  2517.  and.w #%1111,d4
  2518.  and.w #%1111,d5
  2519.  lsl.w #8,d3
  2520.  lsl.w #4,d4
  2521.  add.w d4,d3
  2522.  add.w d5,d3
  2523.  move.w d3,2+(132*4)(a1)
  2524.  addq #4,a1
  2525.  dbra d2,p32loop
  2526.  
  2527.  
  2528.  rts
  2529.  
  2530. **************************************
  2531.  
  2532. FADEAMOUNT: dc.w 0
  2533. FADEVAL: dc.w 0
  2534.  
  2535. FADEUPTITLE:
  2536.  
  2537.  moveq #0,d0
  2538.  moveq #0,d1
  2539.  move.w FADEVAL,d0
  2540.  move.w FADEAMOUNT,d1
  2541. fadeuploop:
  2542.  
  2543.  move.l #TITLEPAL,a0
  2544.  move.l #TITLEPALCOP,a1
  2545.  
  2546. wvb:
  2547.  btst #5,$dff000+intreqrl
  2548.  beq.s wvb
  2549.  move.w #$20,$dff000+intreq 
  2550.  
  2551.  bsr PUTIN32
  2552.  add.w #4,a1
  2553.  bsr PUTIN32
  2554.  add.w #4,a1
  2555.  bsr PUTIN32
  2556.  add.w #4,a1
  2557.  bsr PUTIN32
  2558.  
  2559.  addq.w #8,d0
  2560.  dbra d1,fadeuploop
  2561.  
  2562.  subq #8,d0
  2563.  move.w d0,FADEVAL
  2564.  
  2565.  rts
  2566.  
  2567. CLEARTITLEPAL:
  2568.  PRSDP
  2569.  move.l #TITLEPALCOP,a0
  2570.  move.w #7,d1
  2571. clrpal:
  2572.  move.w #31,d0
  2573. clr32
  2574.  move.w #0,2(a0)
  2575.  addq #4,a0
  2576.  dbra d0,clr32
  2577.  addq #4,a0
  2578.  dbra d1,clrpal
  2579.  PRSDQ
  2580.  rts
  2581.  
  2582. FADEDOWNTITLE:
  2583.  
  2584.  move.w FADEVAL,d0
  2585.  move.w FADEAMOUNT,d1
  2586. fadedownloop:
  2587.  
  2588.  move.l #TITLEPAL,a0
  2589.  move.l #TITLEPALCOP,a1
  2590.  
  2591. .wvb:
  2592.  btst #5,$dff000+intreqrl
  2593.  beq.s .wvb
  2594.  move.w #$20,$dff000+intreq 
  2595.  
  2596.  bsr PUTIN32
  2597.  add.w #4,a1
  2598.  bsr PUTIN32
  2599.  add.w #4,a1
  2600.  bsr PUTIN32
  2601.  add.w #4,a1
  2602.  bsr PUTIN32
  2603.  
  2604.  subq.w #8,d0
  2605.  dbra d1,fadedownloop
  2606.  
  2607.  addq #8,d0
  2608.  move.w d0,FADEVAL
  2609.  
  2610.  rts
  2611.  
  2612. LOADTITLESCRN2:
  2613.  
  2614.  
  2615.  move.l #MEMF_CLEAR,d1
  2616.  move.l #52400,d0
  2617.  move.l 4.w,a6
  2618.  jsr    _LVOAllocMem(a6)
  2619.  tst.l  d0
  2620.  beq    .nomem
  2621.  
  2622.  move.l d0,tempptr
  2623.  
  2624.  move.l TITLESCRNPTR,d1
  2625.  move.l #1005,d2
  2626.  move.l doslib,a6
  2627.  jsr -30(a6)
  2628.  move.l d0,handle
  2629.  move.l d0,d1
  2630.  move.l doslib,a6
  2631. ; move.l TITLESCRNADDR,d2
  2632.  move.l tempptr,d2
  2633.  move.l #10240*7,d3
  2634.  jsr -42(a6)
  2635.  move.l doslib,a6
  2636.  move.l handle,d1
  2637.  jsr -36(a6)
  2638.  
  2639.     
  2640.  move.l TITLESCRNADDR,a0
  2641.  move.l tempptr,d0
  2642.  
  2643.  moveq #0,d1
  2644.  lea WorkSpace,a1
  2645.  lea $0,a2
  2646.  jsr unLHA
  2647.  
  2648.  move.l tempptr,a1
  2649.  move.l #52400,d0
  2650.  CALLEXEC FreeMem
  2651.   
  2652. .nomem
  2653.  
  2654.  rts
  2655.  
  2656. tempptr dc.l 0
  2657.  
  2658.  
  2659. GETTITLEMEM:
  2660.  move.l #2,d1
  2661.  move.l #10240*7,d0
  2662.  move.l 4.w,a6
  2663.  jsr -198(a6)
  2664.  move.l d0,TITLESCRNADDR
  2665.  
  2666.  move.l #$dff000-$2cdfe4,a4
  2667.  
  2668.  move.l #2,d1
  2669.  move.l #258*16*5,d0
  2670.  move.l 4.w,a6
  2671.  jsr -198(a6)
  2672.  move.l d0,OPTSPRADDR
  2673.  
  2674.  rts
  2675.  
  2676. ProtChkJLev1:
  2677.  
  2678. PROTSETUP:
  2679.  incbin "ab3:includes/protsetupenc"
  2680.  
  2681. ; Need to: Decode protection calling
  2682. ; routine
  2683. ; use null values to call it and erase
  2684. ; it from memory
  2685. ; erase this routine and return.
  2686.  
  2687. ; include "ab3:source/protsetup"
  2688.  
  2689.  
  2690. RELEASETITLEMEM:
  2691.  move.l TITLESCRNADDR,d1
  2692.  move.l d1,a1
  2693.  move.l #10240*7,d0
  2694.  move.l 4.w,a6
  2695.  jsr -210(a6)
  2696.  
  2697.  move.l OPTSPRADDR,d1
  2698.  move.l d1,a1
  2699.  move.l #258*80,d0
  2700.  move.l 4.w,a6
  2701.  jsr -210(a6)
  2702.  rts
  2703.  
  2704.  
  2705. PROTCALLENC:
  2706. ; incbin "ab3:source/protcallenc.bin
  2707.  
  2708. ; one pass, all instructions executed.
  2709. ; must call protection routine,store
  2710. ; value somewhere, call ask routine,
  2711. ; compare returned value, if correct
  2712. ; set up all values, then return.
  2713.  
  2714. ; include "ab3:source_4000/protcallenc"
  2715.  
  2716. ENDPROT:
  2717.  
  2718. LOADTITLESCRN:
  2719.  
  2720.  move.l #TITLESCRNNAME,d1
  2721.  move.l #1005,d2
  2722.  move.l doslib,a6
  2723.  jsr -30(a6)
  2724.  move.l d0,handle
  2725.  move.l d0,d1
  2726.  move.l doslib,a6
  2727.  move.l TITLESCRNADDR,d2
  2728.  move.l #10240*7,d3
  2729.  jsr -42(a6)
  2730.  move.l doslib,a6
  2731.  move.l handle,d1
  2732.  jsr -36(a6)
  2733.  
  2734.  rts
  2735.  
  2736. RVAL2: dc.w 0
  2737.  
  2738. SETUPTITLESCRN:
  2739.  
  2740.  PRSDR
  2741.  move.l #OPTCOP,a0
  2742.  move.l #rain,a1
  2743.  move.w #255,d0
  2744. putinrain:
  2745.  move.w (a1)+,d1
  2746.  move.w d1,6(a0)
  2747.  move.w d1,6+4(a0)
  2748.  move.w d1,6+8(a0)
  2749.  move.w d1,6+12(a0)
  2750.  add.w #4*14,a0
  2751.  
  2752.  dbra d0,putinrain
  2753.  
  2754. ; Put addr into copper.
  2755.  move.l OPTSPRADDR,d0
  2756.  move.w d0,tsp0l
  2757.  swap d0
  2758.  move.w d0,tsp0h
  2759.  swap d0
  2760.  add.l #258*16,d0
  2761.  move.w d0,tsp1l
  2762.  swap d0
  2763.  move.w d0,tsp1h
  2764.  swap d0
  2765.  add.l #258*16,d0
  2766.  move.w d0,tsp2l
  2767.  swap d0
  2768.  move.w d0,tsp2h
  2769.  swap d0
  2770.  add.l #258*16,d0
  2771.  move.w d0,tsp3l
  2772.  swap d0
  2773.  move.w d0,tsp3h
  2774.  swap d0
  2775.  add.l #258*16,d0
  2776.  move.w d0,tsp4l
  2777.  swap d0
  2778.  move.w d0,tsp4h
  2779.  
  2780.  move.l #nullspr,d0
  2781.  move.w d0,tsp5l
  2782.  move.w d0,tsp6l
  2783.  move.w d0,tsp7l
  2784.  swap d0
  2785.  move.w d0,tsp5h
  2786.  move.w d0,tsp6h
  2787.  move.w d0,tsp7h 
  2788.  
  2789.  move.l TITLESCRNADDR,d0
  2790.  move.w d0,ts1l
  2791.  swap d0
  2792.  move.w d0,ts1h
  2793.  swap d0
  2794.  add.l #10240,d0
  2795.  move.w d0,ts2l
  2796.  swap d0
  2797.  move.w d0,ts2h
  2798.  swap d0
  2799.  add.l #10240,d0
  2800.  move.w d0,ts3l
  2801.  swap d0
  2802.  move.w d0,ts3h
  2803.  swap d0
  2804.  add.l #10240,d0
  2805.  move.w d0,ts4l
  2806.  swap d0
  2807.  move.w d0,ts4h
  2808.  swap d0
  2809.  add.l #10240,d0
  2810.  move.w d0,ts5l
  2811.  swap d0
  2812.  move.w d0,ts5h
  2813.  swap d0
  2814.  add.l #10240,d0
  2815.  move.w d0,ts6l
  2816.  swap d0
  2817.  move.w d0,ts6h
  2818.  swap d0
  2819.  add.l #10240,d0
  2820.  move.w d0,ts7l
  2821.  swap d0
  2822.  move.w d0,ts7h
  2823.  rts 
  2824.  
  2825. RVAL1: dc.w 0
  2826.  
  2827. DummyAdds:
  2828.  dc.l dummy-78935450
  2829.  dc.l dummy-78935450
  2830.  dc.l dummy-78935450
  2831.  dc.l dummy-78935450
  2832.  dc.l dummy-78935450
  2833.  dc.l dummy-78935450
  2834.  dc.l dummy-78935450
  2835.  dc.l dummy-78935450
  2836.  dc.l dummy-78935450
  2837.  dc.l dummy-78935450
  2838.  
  2839. dummycall
  2840.  dc.w $4e75-123
  2841.  
  2842. protspace: 
  2843.  ;ds.l 200
  2844.  
  2845.  include "ab3:source_4000/LEVEL_BLURB"
  2846.  
  2847. font:
  2848.  incbin "Starquake.font.bin"
  2849.  
  2850. rain: incbin "optcop"
  2851.  
  2852.     include "ab3:demo/menu/menu_v2.s"